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3a] PROCEDURE ENTERSYSMTR(NIS. VALUE N3 REAL N3 FORWARDS UU 0024700) 
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5 PROCEDURE FORGETUSERDISKCAtLISVALUE AsLJREAL AsLSFORWAROSS 00316000 0 
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ia SAVE PROCEDURE FILECLOSECA)$S VALUE AS REAL A3 00389100 
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A |——-—-—- PROCEDURE LIBRARYOUMPS FURWARDS ———._.__. ee OT ene RTE? tenet ERROR AUR IE RS 01 611.76 01 G8 6 pe eeennerE 
iu PROCEDURE DUMPCORE(B)$ VALUE B84 REAL B3 FORWARD} 00480100 
i PROCEDURE COM193 FORWARDS% | : 00483000 
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@™ PROCEDURE DCWRITECS)3 VALLE S3 REAL 33 FORWARD 00700000 
| PROCEDURE DGREADCS)3 VALUE. S3 REAL S53 FORWARDS 000 OT OTNON 
hs PRUCEDURE INQUPT(T)s VALUE T3 REAL Ts FORWARCS 00701500 
eo” REAL PROCEDURE WHATSUPCSTAs MIX» FUNC »ARAE D3 . 00702000 
be __ PROCEDURE SEEKACTIONCSTAsMIxeFUNCeLUD)S OO 00706000 
Ns PROCEDURE STATIONMESSAGEWRITER(V)s VALUE V3} REAL V3 FORWARD} 00713200 
@ SAVE REAL PROCEQURE GETCTUSTA)#s VALUE TUSTAS REAL TUSTA FORWARD; | 00716000 
a ttC(C(‘ PROCEDURE STABLECRO*S)3 VALUE KOeS# REAL RD»S$ FURWARDS = = = = FAP OOO 
2 PRUCEDURE NINETEENREADER(S)> VALUE Sé# REAL S3 FORWARDS ~ 00719000 
@= PRUCEDURE COM363 FORWARDS & TYPE 19 LU INTERFACE® 00720000 
aq PROCEDURE MARKSPOSTACSTASINOROUTIS VALUE STAsINORKGUTS REAL STASINOROUTS 00800000 
Gi PROCENURE INITIALIZEDCFILES (CAs DDOeLRIS VALUE As DDD»LRs ; 00900000 
@* PROCEDURE REMOTELOGGER(TYPEsRMCARDsSTAsMIX)s VALVE TYPE*RMCARD*STA*MIXs 00902000 
"| ___ PROCEDURE UPDATEABORTLNCWHODIDITI: VALUE WHODIDIT; Real WHODIpDIT; o09040n0 
PROCEDURE RUNSEPTICCBUFF )3 VALUE BUFFS REAL BUFFS FORWARDS 00920000 
@ SAVE PROCEDURE OISPOSAL(1,R)3 VALUE Iehs REAL I-R3 FORWARDS 00921000 
——————SAVE-PROCEQURE LINKEWS FORM ARD § OOD 
SAVE PROCEOURE STARTIC(U)$ VALUE UJ ‘REAL Us FURWARD:.- 01165000 
@e.” SAVE PROCEDURE COMPLEXSNOOZE(PRI»COUE)S VALUE PRI REAL PRy»CODES 01240000 
my PROCEDURE USASTTAPECAREAs TYME SFROMeUsOIRIS UU RHR eS olod 
f SAVE PROCEDURE SNOOZECNEWPHI sADDRESS*MASK)3~ 02000000 
@» SAVE PROCEDURE INDEPENDENTRUNNERO ROUTINE «sPARAMETERs S$2)3 02012000 
[ay Seo oeenre __ REAL PROCEDURE KEYIN(B)S VALUE Bs YOO EAN Bs FURWARDS% = 2024000 
ty BOULEAN PROCEDURE SMGAMES(MIXsSTAsWHICHWAY)3 02021100 
@: BOOLEAN PROCEDYRE wHYSLEEPCMASK) VALUE MASK3 REAL MASK} FORWARDS X 02022000 
7 CS AVE PROCEDURE RUNCMIXIS VALUE MIXS REAL MIX#% 02025000 
SAVE PROCEDURE SAVEMIXC(MIX)3 VALUE MIXs REAL MIX34% 02032000 
@' SAVE PROCEDURE HALT3% 02036000 
__ SAVE PROCEDURE KILLCA)S VALUE AS ARRAY AC#]3% 2047000 
BOOLEAN PROCEDURE QgLAY(ioc)s VALUE LOCs REAL Locs FORWARDS. 02052500 
@ PROCEQURE SEEKNAMC AP Be Ce De Ee N)s Value Ar BI REAL AP Be Ce DA EON3 FORWARD: 02952609 
__PROCEDURE UNHOOQUECMIXI3% = 2059000 
REAL PROCEDURE GETESPNISK;FORWARD;% 02111000 
PROCEDURE CHANGEMCP(KTRI$ VALUE KTRS REAL KTR3 FURWARDS 02111100 
PROCEDURE CHANGEINTRINSICFILECKTR ds VALUE KTRs REAL KTR} FORWARD} 02111200 
REAL PROCEOURE EXPS FORWARD} oa 02111300 
REAL PROCEDURE ANALYSIS4 FORWARDS ee | 02111400 
FOURE SHORTCOMMUNICATES FORWARD; ee he OATS OO 
PROCEDURE CONTINUITYBJT# FORWARDS 02111600 
PROCEDURE MESSAGEWRITERS% 02114000 
__ PROCEDURE TWXOUTCAsBsC0)5 VALUE Asbo oD} REAL AeBsCsD5 FORWARD} _____O2i31012. 
PROCEDURE RJINPUTCSTA)S VALUE STAS REAL STAJ FORWARDS ee 02131013 
“PROCEDURE RJEUNITCHANGECT)3 VALUE Ts REALi TS FORWARD: © O2131014 
“PROCEDURE SETCTUSTA)JSVALVE TUSTAS REAL TUSTAS FORWARDS _ 02131016 
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PROCEDURE TACHCAsBsC)3 VALUE Avlds REAL As BoC FORWARDS 02131017 
PROCEDURE SPOSINCSTA»FUNC,BUFF DS VALUE STAsFUNC » BUFFS REAL STAsFUNC »BUFF 302131020 
____.__. PROCEDURE SPOUTCMESSAGF Js === ee ae eee cree em 9-5 Wer "11901 6 ee ee 
PROCEDURE SPOUTERCMESSAGE»UNITNO*TYPE)S 02132300 
PROCEDURE ENDOFDECK(R»TUSTAIS VALUE ReTUSTAS REAL Ro TUSTAS FORWARD} 02177100 
DURE PBInCA,B)3 VALUE AS} REAL AsBS FORWARDS HOO 
PROCEDURE TERMINATEC(MIX)3 VALUE MIXS REAL MIXs4 02180000 
REAL PROCEDURE PLACEFINDER(S» As LDS 02167100 
______ PROCEDURE TERMINALMESSAGACN)? VALUE Né REAL NB ed asood 
SAVE PROCEDURE TERMINALMESSAGE(N)3 vaeve N3 REAL N3 02330100 
SAVE PROCEDURE CHECKLINKS3 02330600 
ri 0 zO 
~ PRUCEDURE ORAINOCUNIT»BUMPsERROR)$ 02347200 
REAL PROCEDURE UNTTINCTINU* WHAT D3 VALUE WHATS REAL WHATS 02348000 
_____PROCEQUR sw A a ht hs DN ete 3 
REAL PROCEDURE EUFCAsBeL)3 VALUE AeBeLs REAL As BeLs FORWARDS 02379000 | 
| INTEGER PROCEDURE CALCULATEPURGE (PURGE 38 02380000 
‘Sl PROCEOURE CHANGEDATEC BUFF) "E32 REAL BUFF 3 FORWARD; 93400 — 
REAL PROCEDURE TAPELABEL (Me Fe Re CrP); VALUE MeF eRe CoP3 TTP ECEY TY: 
PROCEQURE PRINTCOREs2 023544000 
_—. PROCEOURE DUMPCOREC BUFF), oO eee ence a a A ALO ZK IAL 00. 
PROCEDURE LOGCOMMENT (Q)3 VALUE Q3 REAL @3 FURWARD; 02434790 
SAVE PROCEDURE TRACECWORDsFORMAT)34 02436000 
[PROCEDURE DISKBUGS FoORWARD;% 
PROCEDURE PRINTRACES3 02469000 
PROCEDURE SOG TENOVE HEA TODO PARAME TERE SF ACE) 02322100 
yo tt(‘a( lé;iPROCEDURE EGGENTERCWHATODOSPARAMETER,SECUNDS)$ 
PROCEDURE EGGSELECT PARAMETER) 3 VALUE PARAMETERS REAL PARAMETERSFORWARDs 02922800 
8 PROCEDURE Meee ot 02603000 
R PROCEDUR M OF IO.R iC vie PURC Ee 4 02635000 | 
REAL. PROCEDURE Ter ace th Cr Gee) VALUE LBLSREAL LBL3& 02659000 
PROCEDURE. NSECONDJFORWARD3S& 02692000 
REAL PROCEDURE SECURITYCHECK(MeF ele dg 
PROCEDURE MAKEPRESENT(C)3 VALUE Cs REAL C3 FORWARD; 02696200 + 
PROCEDURE SIGNOFF CysF »W)3 VALUE VeFeWRARRAY yCeJeFCeIJREAL WAFORWARDS 02696300 
___ SAVE PROCEDURE IOREQUESTCFeoToL)s VALUE Falei3 ARRAY Fells 26 
BOOLEAN PROCEDURE MTXINCI,uU,B8)4 BEAL UrBs INTEGER ITs FORWARDS 0269670Q 
PROCEDURE AUXTODISK(ODsL9 As DADS VALUE Dol eDASREAL Del sDASARRAY ACL*I]3 02697300 
___SAVE INTEG A s 2 ; 02697750 
REAL PROCEDURE BREAKOUTS RETURNS HEAO OF BREAK FILE. 02700200 
BOOLEAN. PROCEDURE BREAN CTE? VALUE | TK INTEGER THE 02770600 
PRUCE DURE COM123 02809000 
SAVE eee ENE FORK(ReS» Qs MKI3 varye Ais Se Geuns 02819600 
PRC a 0 vr, RN f OM . 9-4 aoe = Q2 < 
PROCEDURE REELERCO)S VALUE. B3 REAL. Bs | =a he 02833000 
PROCEDURE: ‘REOPENS . RRESTART FILES ae ee hc 
LU pee Pk ee te aie EES ul ee 
. PRUCEDURE KERNALS FORWARDS 02942600 
PROCEDURE ee nes 02942800 
PROC E KER Is : ___ 02973400 
PROCEDURE. SEN ATaatos VALUE Ts ARRAY eae REAL T; oe 039047200 
ee PROCEDURE JSUMER (CANCEL STAD} VALUE: GANCELSTAPREAL CANCELSTAJ ~03490100 
AVE. NCEBUR TE MIX : “Q40000 
“SAVE. PROCEDURE QUEUEUP CU): VALUE U 3 REAL Us% 04016000 
[a SAVE PROCEDURE LINKEU3 04019500 
SAVE PROCEQURE STARTIOCU)S VALUE Us REAL USS 020 
SAVE PROCEQURE. .PRINTERFINISH(U) VALUE UF REAL Us 04035000 
Oa0Kd000 


Data Documents/Inc. 


O; 
PROCEDURE PROGRAMRELEASE3 & 04099000 
@| SAVE PROCEDURE NEWIO3% 04115000 
_. PROCEDURE DISKORAUXERROR(AR)S VALVE | ns Real is FORWARDS AL 
PROCEDURE ACTUALIGERRC(CR)3 VALUE RS REAL RS FORWARDS (04121425 
@: PROCEQURE LINKUPC(TYPE,KEY)4 VALUE TYPEsKEYS REAL TYPE sKEY3 FORWARDS 04121450 
Ramos tt. | PROCEDURE CHECK JOBORFILEMESS (MI Mer Tee dse Mo a eee ht igs ne ee OED BOO! ey ee 
PRUCEDURE LOGQUTMAINT(B23 VALUE Bs REAL Bs FORWARDSS 04121600 
@ PRUCEDURE MAINTLOGGER(B)3 VALUE BS REAL BS FORNARDS2 94121650 
_.__ SAVE PROCEDURE TOFINISH(ReC)s VALVE ApC3 REAL ReCh oO gabe2ggg. 
SAVE REAL PROCEDURE WAITIOCIODs MASHKoU)S% 04240000 . 
@ REAL PROGEDURE TAPEPARITYRETRYCR*UPKEY) ba - 04254000. 
__ PROCEDURE DISKORAUXERROR(M)$ VALUE KJ REAL RS = —C—“‘“CC™C(C#CQNR25OQOQ 
END PROCEDURE DISKCRAUXERRORS 04353000 
Y eb PROCEDURE ACTUALIOERR(RIS VALUE RF REAL RS 04353200 
______ REAL PROCEDURE TAPEPARITYRETRY(HoUsKEY)S% 00 Boog 
“REAL PROCEDURE PLACEFINDER(S» as L)5 04700000 
eo PROCEDURE: STABLECRD»S)s VALUE RD» SFREAL. ROSS; | 95000000 
Oe aie “SAVE. REAL PROCEDURE GeTCT@STA AsV ALUE "TURTAS REAL TySTAZ 0 gpS009ng. 
SAVE PROCEDURE SETCTUSTA)S VALUE TUSTAS REAL TUSTAS 05600000 
eo,” PRUCEDURE LOGQUTCA)S VALUE AS REAL Ad FORWARD} 05607000 
fone nn PROCEDURE LOGSPACE (Wel). US Neila ee ee eee eee Soo re SOS ROO OOO ncn oat Fie eo ee ee ot cla le 
PROCEDURE SCRATCHSORT(A9N) 2 os 05806500 
PROCEDURE: SCRATCHDIAECTORYERROR(AeN)3 : ; : 05809600 
| J BOOLEAN PROCEDURE SCRATCHCHECK(IeHeS) foo OTe REIT © (oe A 29 |e ee a ee 
PROCEDURE. SCRATCHSPECIALCASE(CNsAsN»CORADDR, »SEGADDKs» Ty ae SCRATCHSES): 05811340 
| PROCEDURE SCRATCHDIRECTURYENTER(A@N)S 05813700 
pa PROCEDURE. SCRATCHOTRECTORYDELETE Cpe) fee nen OPIN Y . ~. 
P “PROCEDURE. SCRATCHCLEANCARY*BCoLINK) § — ... 05837800 
REAL PROCEQURE PETUSERDISK(N*# TIS VALUE Nets REAL NoT 3 | 05839400 
PROCEDURE FORGETUSEROTSK¢( vAsN)S. VALUE AsNS REAL ApN po US BM6BOO. 
PROCEDURE DKBUSINESS(BUFF)3 VALUE BUFFS REAL BUFF 05950000 
SAVE PRUpepuee DISKIQCLOCIODs CORE*SIZE*DISK)3% 06000000 
ose J PRU V Je VALUE SEGMENTS Real SEGMENT? FORWARDS 6020500 
REAL PRRGEAUE GETESPOISKES we 069021000 , 
: PROCEDURE FORGETESPOISK(CSEGMENT)3 VALUE” SEGMENTS REAL SEGMENTS & 06036000 
Lo PROCEDURE DISKBUGEs 8 a BOK BONO 
PROCEDURE CLEANOUTCSYS)5 06057340 
ae te or eoG pune LTceURe  SIZEs 01 oi 06059820 
SAY RQ WR OLSKwal TCCUR 29 , aK 6 
PROCEDURE DISKSQUASH(CQUFF )§ ? onecaade 
ie PROCEDURE CHANGEABORTCX)2: VALUE. x2 REAL XF FORWAROS% of 06179000 
Pe ce ae daa _ PROCEDURE SIGNOFFCVECTORsFILEBLOCKeFeT)s ae 
PROCEDURE USERDISKSPECIALCASE(QaRsUTaud 3 06350000 
PROCEDURE BE HORE ok % 06400000 
R 4600090 a 
. PROCEDURE a eueari aMIX@FUNCISVALUE MIXeSTAS REAL STA »MIXeFUNCE 96500000" 
PROCEDURE HE WOT UL GSSENE | ITE) GNCARD eS 14201K)1, %7506846000 
2 MENT PROCEDURE REM GER UPDATES REMOTE £aoG@ Acc Tl 
REAL PROCEOURE SVT CERUN CURR ATE SD VALUE UPDATES BOOLEAN UPDATES. 07001600 
ener UNE STARTADECK(N)3 VALUE Ni REAL N3 PUR WARE . 07002000 
PR RCONTROLDE Ck RAA F QRWARD 
PROCEDURE. “COM235% i ee a 47004006 
PROCEDURE: STARTLOAONCKTRIE VALUE kT 3. REAL KTRsS 07243009 
PROCEOURE TABLEOF WNTDBS, . Besa i 07268000 
PROCEDURE REMOVEDECK(NeTUSTA)5 VALUE Ne TUSTASREAL Ne TUSTA} 07298000 
PROCEDURE DECKREMOVER(B)} VALUE BS REAL B3% 07354000 
sau EAN PROCEDURE READEMFROMDISK(Hs18)3% 07376000 - 
“PeeeD PROCEDURE’ PRINTORPUNCHWALT(CQ#PNCH)JVALUE Se RROETRE M. Qe PNCH3 07405100 
eee ENDOFDECK(CR» TUSTAD3 VALUE ReTUSTAS REAL R >TUSTAR - 07406000 
oe nae STARTADECK(N) 2 VALUE NJ REAL NJ acs - 07422000 


Data Documents/inc. 


5 
6 


7] 
8 


PROCEDURE RUNTHEDECK(B)s VALUE Bs REAL Bie 

PROCEDURE EXTERNALEND(B)3 VALUE Bs REAL BS 
PROCEDURE CHANGEPRIORITY( BUFFeMIX)$ VALUE BUFF eMIXS REAL BUFF eMIX$ 
PROCEDURE ENTERCONTROLDECKC HIS VALUE Hs ARRAY WE¥ I, 
BOOLEAN PROCEDURE MTXINC( Ts UsBUFF 94% 


__PROCEDURE TAPEPU UFFd REAL BUFFERS 


PROCEDURE PRINTDIRECTORY(BUFFeCUDE)s 
BOOLFAN PROCEDURE RHEOSTATCTYPEsMASK#MIXsSTA)3 
PROCEDYRE PBIOCAsP)) VALUE A} REAL ApP&d FORWARDS a PL 
___PROCEDURE CONTINUITYBITESR 


BOULEAN PROCEDURE PRINTORPUNCHWAITCQePNCH)S VALUE QsPNGHFREAL Qs»PNCH3 
% THIS PROCEDURE IS RESPONSIBLE FOR STARTING PRNPBT/DISKs IT CHECKS 


2) =p... PROCEDURE PRINTBACKUPCBUPFIs VA 

e % THIS PROCEOURE WANOLES THE PB MESSAGE, MAKING THE NECESSARY CHECKS. 
7 SAVE PROCeOUne INITIALIZES «= FORWARD} Fae 
; aenmeee Cs a REAL PROCEOURE COREND; _ FORWARDD 

ip PROCEDURE TIMEQUT (8) VALUE Hs REAL B34 


vt 


PROCEDURE GIMEDATECBe0T)3 VALUE BeDTs REAL Be DT 


a PROCEDURE SETOATECBUFE 3 pBURF So REAL BUF PSA oe eee 


PROCEDURE CHANGEDATEC(BUFF I$ VALUE BUFFS REAL BUFF3% 

PROCEOURE SETIMECBUFFI3 VALUE BUFFA REAL BUFF SS 
_..__.__ REAL PROCEDURE FORME SSCRUFFeM1)s VALUE BUFF eli REAL BUFF aHIS 
PROCEDURE SUSTATUSCAs00D2B)5 VALUE AsDDDsB; REAL AsBs ARRAY DODC*]3 
PROCEDURE QUTPUTLABEL(B)3 VALUE Bs KEAL Bia 
oe PROCEDURE 2 TIME UAE 00 Ap kh a pe i 
REAL PROCEDURE ANVIL CIL»Z)s VALVE ILods REAL IL*2s% 
PROCEDURE LOGOUTCA)S VALUE As REAL, AR 


BOULEAN PROCEDURE WHYSLEEPCMASK)# VALUE MASKS REAL MASK] 
END PROCKOURE NHYSLEEP3 


b PAL UP 


PROCEOURE TYPOPCKTRS AQ): prven KTReRD} RE Al. KTRePQs 


PROCEDURE SHEETOIODLERCBUFF »TYPEsSI0I3 VALUE BUFF esTYPEsSIDO3 
PROCEDURE PE at pe Mita da leet VALUE SO eee 
PROCEDURE LGINOUTCBUFF, TYPE) ; % 
PROCEDURE BLACKOUTCBUFF)3 
PROCEDURE LOGDISK(CA)$ VALUE AS REAL AZ. 
PROCEDURE WHATINTRNSICC(BUFF)3 VAL UE BUFF 3 REA BUFF FORWARDS 
REAL PROCEDURE: NEXTAUXMEMWORD CHEADERSF.ILEPARAMsD I[SKADDRESS) 3 
IF DISKADORESS.« 0 THEN % FIRST CALL ON PROCEVURE 
IT? END PROCEOURE NEXTAUXMEMWORD 3 wore 
PROCEDURE TRANSFERNCPTOAUXMEM( HORADRSsMAXLOC) 3 VALUE HDRADRS»MAXLOC3 
END PROCEDURE TRANSFERMCPTUAUXMEM3 


—_—O7485000 
07541000 
08900000 


PROCEDURE i hela tania Shenae VAWUE MIDeF IDs HS. REAL apenas ARRAY wtesa68697100 
4 { RE AI 


07457000 
07473100 


08136030 
08470109 


08255000 
08255055 


08303000 


08305000 
08317000 


183.435.0000. 
08376000 


08390000 


08438900 
08439000 


08546000 
08968000 


08299000 
08623000 
Ono: arene 


08679000 


as PR ® : 
% THIS PROCEDURE HANDLES 10 Far TRE CREATION OF TE uP FILESe FOR 08700910 
aeeevere TIMERELAXERCKTRo TYPE MIX) 9% Beason 
PROCEDURE CHANGEF ACTCR(BUPFeTF)s VALUE BUFFS TFS REAL BUFF 3 BOOLEAN TFS 800 


TEE 


(06282110. 


PRUCEQURE GIMEDATECBeDT)3 VaLue B»OTs REAL BeOTs FORWARDS ARH 08070000 
PROCEDURE REWINODANDLOCKCWHAT)# VALVE WHATS REAL WHATI& 08079000 
eg pc ale ee er ee OU OO 0a a 


09000000 - 


09281000 
09300000 
o94uon00 


094001400 
09401300 
a9404 

09404400 
09410000 
09410200 


PROCEDURE SETMONITORFILECSTOP)$ VALUE STOP} REAL STOPS fits saad — 


END PROCEDURE SETMONITORFILES 99423800 
PROCEOURE. GETMONITORON}.. 09423900 
‘ENO PROCEDURE GETM NITDRE eae a a9428ea00 
PROCEDURE ENTERSYSMTR(N)# VALUE Ns REAL NG 09428900 
aut. END PROCEDURE ENTERGYSMTR 09433500 
UCEDURE CHANGEAUXFILESCAUFFeWA)S 09433600 
FROG RIURE INTRINSICTABLESULLDER(FHIS VALUE FHS REAL. FH? ae: 
09 0 


peecucee: eeeeuee eye ce ae ice i aat (BUFF) REAL aad 


N9679100 


@ | @ 
BOOLEAN PROCEDURE SYSTEMFILECAsH23 VALUE AsB3 REAL Ae B3% 09700000 
e REAL STREAM PROCEDURE GNC(B)3% 10001000 
nesses BDULE ANS TREAMCPROCEQURE§..5 ANC.) 2 Ae Ap a A a se lt ek OOO TOO Ol ilk Sc il al le 
A REAL PROCEDURE EXP3% 10012000 : 
ee. STREAM PROCEDURE FRMTI(QsT»MsWB)s VALUE GoTo Mss 10047000 | 1@ 
Bacon st atc PMD EIR BOE cae a hia hae ce ee tee eh oa ae ie de A al Se eet a De Te a oo UO BO ie ets oh es 3 
‘ PRUCEDURE WKSETVALUESCKIRX)3 VALUE KIRK: REAL KTRX3 12201000 . ; 
@: END PROCEDURE WKSETREQUESTS; 12321500 |@ 
oe PROCEDURE WORKSET(N)? VALUE NZ REAL NZ soo | 6 
in % NOTES WKSETNOSELECT 1S A FLAG TO PROCEDURE SELECTRUN TO 12425500 ? 
@ | > REAL PROCEOURE PRNPBTSPECASEL(Z)3 12500000 1@ 
: _X% "THIS PROCEDURE HANDLES. THE FOLLOWING FUNCTIONS FOR COM19» DEPENDING 12500110 | ss ———C—CSC—C 9 
i PROCEDURE PRNPBTSPECASE2(Z)3 12800000 no 
@} % THIS PROCEDURE HANDLES ADDITIONAL THINGS FOR CUM19« VALUES OF Z ARES12800410 0 
Bi PRUCEQURE COMI9j ee gi oa i aie oes Sete a eke aN ge IO 0 Qiagen Ke 
he PROCEDURE DCREADC(STA)Z VALUE STAs REAL STAs © a . 13490000 bi 
ait "PROCEDURE OCWRITECSTA)S VALUE STA$ REAL STAS 13250000 | . Hh 
Jo PROCEDURE. RUFUNTTCMANGEC TIS YALE Ps REAL ee RN et ee Hy 
by PROCEDURE TWXOUTCUNITsNUMCHRS»s AREAS STA)S 13379000 i 
eo” PRUCEDURE RJINPUTCSTA)3 VALUE STAS REAL STA; . 13509000 \@ 
be een BEGIN. STHIS.1S THE PROCEDURE THAT nANDLES ALL REMOTE JOB TNPUT 0 AP BPO OOO een ee eB 
b REAL PROCEDURE ANALYSIS3% 14000000 1@ 
@ SAVE INTEGER PROCEDURE ACTUALOVERLAT ADDRESS( TYPE, MIX» LOC)s 14105009 pa 
5 eet eee PROCEDURE AUXILIARYMEMORYCASUALTYRECOVERYS === == OOO 24 
PROCEDURE AUXILIARYTABLEINITIALIZE3 14122000 2 
6 PRUCEDURE MAKEPRESENT(C)$ VALUE C3 HEAL C33 14155000 . 3 @ 
fe PROCEDURE ZIPPER(C ArBe CA VALUE Ae Bele REAL ae 0s: axl 181-0 140 eae eee een 2 Y-L e a F eee es eee eek ee 2 
PROCEDURE COM53% 14343000 25 
& PROCEDURE ZIPPERCW1>Wa2sUSERST Ad SV ALUE WL?W2>USERSTA; 14531000 | @ 
g L)3 VALUE AsBad? | Ae Bees oo OOO. 
2 PROCEDURE COM{11# COMMENT ALGOL_ 1/0 CUMMUNICATES% . 14623000 7 
:@ PRUCEDURE COM363 % COMMENT TYPE 19 IU INTERFACE - 14716000 21 @ 
3 — soe ROG ROUBE DUS BLACK tit VA UES AL NB aN a 
: PROCEQURE COM13 3% - ! 15060000 —_ . 
s@ BOOLEAN PROCEDURE. CONQUER(C>NoL»S2G)3 15168000. 1@ 
[pee ream eer _BOOLEAN PROCEDURE PRIGAMES(BUFFAMIX); VALUE BUFF. oMIX; REAL BUFFeMIX3 15400000 ited eect ao ee Ds 
PROCEDURE CHEKREMOTELQG(BUFF)3 VALUE BUFF3 REAL BUFF; 15442200 ‘ 
 ) PRUCEDURE WHATMCPC(BUFF)s VALUE BUFFS REAL BLUFFS *FORMATS WM MESSAGE 15200000 3@ 
Seances 28 PROCEDURE WHATINTRNSICCBUFF)3 VALUE | BUFFS REAL BUFFS SoC 519: Aa ea ae oat oe ehh ae eee ae ne eens ee Rene 
PROCEDURE COREPRINTCQ)3 VALUE @3 REAL Q3 15600000 a7 
@»: COMMENT $ THIS RROCEDURE.. COMPUTES AND TYPES THE AMOUNTS OF SAVE 15000050 1 @ 
| REAL PROCEOURE AUXPRINTCQ)S VALWE Q4 REAL Qs 2. 6008000) ee . _ 
END PROCEDURE AUXPRINT3 15609600 40 
@ | PROCEDURE LOGCOMMENT (@)5 VALUE @4s REAL Q3 15610000 /@ 
__ REAL PROCEDURE. EIN CANCRTEE NI REAL KTR» MIX3_ | : 16034900 Chess | 
END PROCEDURE KEYINBGANS Fe ea, | 16043800. . ) a 4 
@ | PRUCEDURE KEY[NOCB»sKTRX)3 VALUE Bok TRY REAL BeKTRK: 16044000 a. 4@ 
END PRI é oe HOOD ee errs ies ees Sc: by 
eRe Re EP URE KEYING 3 VALUE SUpKTRGT HEA Bok TRIG Ui 16 
eo” END PROCEDURE KEYIN12 16689500 1 
___ PROCEDURE KEYIN2CKTRX)3 VALUE KTRX3 REAL Pa a Sees OOOO sn ene ee 
END PROCEDURE KEYIN23 - 16903100 . 4s 
REAL PROCEDURE KEYINCB)S VALUE 83 REAL Bs 16904000 , . 7 s @ 
& THIS PROCEDURE FUNCTIONS AS A QRIVER, FOR AUXILIARY PROCEDURES 16904590, ee ; 51 
% THIS PROCEDURE FUNCTIUNS AS A DRIVER FO FOR AUXILIARY. PROCEDURES 16904500 5 
@ ¥ "KEYINOS*KEYINI™ AND "KEYINEMe PROCEDURES "KEYINO™ AND "KEYINI" 16905000 s1@ 
& aR ARE CaLL ED DIREC TE Ye AND PROCEDURE KEV INGE 218 SCALED: AS CANS a 16005500 ee ene 5 
END PROCEDURE KEYINS © 16971500 : ; . 55 
 ) PROCEQURE LBMESSCF Ne Sho 19 129 E+ UNIT WUs X27 2 17000000 apt 2 rene ae . i s| @ 
Pr E | NC. 17900500 ee Onn ae on ny ae : ay 


® ® 
END PROCEDURE STUPM3 17928000 
@: PRUCEDURE TISKTASKs FCRWARD; 17928500 
L pe PRUCEOURE FILEHOLOCAsBeTOGALOCoHULD)S dtgbonOOO. 
REAL PROCEOURE DIRECTORYSEARCH( A»B»OPTNIES 18155000 
@ PROCEDURE PICKTMELOCK} FORWARD3 16468100 
3 ERRUP Li FORWAROZ I cs ls IR EO eh a lee Ts cine Te RU OOS cit ct oie a ulead 
4 PROCEDURE “COMMUNICATES 4 186500000 
@ | PRUCEDURE CQMMUNICATEQO3 | 18700000 
: ———PROCFOURE SHORTCOMMUNICATE$ AG OOOO ce 
‘ PROCEDURE TISKTASKS . 19687000 
& : EOC OUnE eyCR INCL OC seas a 19900009 
| BEGIN COMMENT THIS PROCEDURE HANDLES LOCKING/UMNL | _ 
ro PROCEDURE EVENTANDINTERRUPT3 19900900 
er % LOWER WOKD? PROCEDURE OESCRIPTOR FOR INTERRUPT 19902509 
NOUS, “oo Soa coo PAU CEDURE SELE CTRUNG $e. cin noo pee ee a nt raed ae ee ; — 
i Z2%% THOSE DECLARED. IN PROCEQURE SELECTRUNs . 20016400 
@” THIS PROCEDURE WILL.8E EXEGMTEDs« TH ‘PROCEOWRE CAN ALSO 2001820¢ 
THIS PROCEDURE WILL BE EXECUTED: -THIS PROCEDURE CAN ALSO ___200 le Ai oe eee 
6 RETURNING TO THAT PROCEDURE, 20018500 
% PROCEDWURE ONLY 20023000 
MO eS ete hi ENDO PROCEDURE SELECTRUNGS ciclo ee Oo Od . ees 
~ PRUCEDURE SELECTRUN23 20080500 
¥XXX THOSE DECLARED IN PROCEDURE SELECTRUNe 20085400 
PROCEOURE SELECTRUNCF)3 VALUE F3 REAL F3 20140800 
Z%Z%_ VARIABLES DECLARED IN TWIS PRQCEQURE.S 20146000 
‘ aan» ~PROCEDURES "SELECTRUNI" AND/OR "SELECTRUN2" WIL HE EXECUTED, 20147200 
: PROCEQURE "SELECTRUNI” aNo "“SELECTRUN2" MaYs IN. TURN» SPECIFY 201347300 
3 %%% SEE ALSO “SEGMENT ZERO" SECTIGN IN RROCEQURE "SELECTRUN2™ FOR 20176200 
5 ___._PROCEDURE PRINTTHECOVER(CARDSUNITNOsPR)S- RCO 
8 PROCEDURE FETCHCUNITNO*#CARDLOC» SUURCE)3 . ~ 20292000 
3 REAL PROCEDURE SCNCUNTTNOsCARDLOC » SUURCE # ACCUM» KUUNT»LASTSCAN? 20314000 
[FPO ce DURE -SEEKNAMCAsBe Cr De Een) 3 VALUE As O36; 
REAL PROCEQURE PPC: ; oat 20383000 
PROCEDURE SECURITYMAINTC eVbE sande. oF (ost ae Aa Cannan 205141100 
J ALSO SEE PROCEDURE "SELECTRUNE™ (SEQ.NQO.20055600) FOR == dae BOO——C—™ 
REAL PROCEDURE LIBCC3 20566000 
ENDS % LIBCC PROCEDURE 20580350 
REAL PROCEDURE CCSETS FORWARDS atop Sipe ta ett ee ee OM a a2 act then Buse 
PROCEDURE CCFINISH3 ° 20580800 
REAL PROCEDURE CCCOMPILES ~*.. . ia a 20583600 
REAL PROCEDURE INITIAL I4ZEITS 205 BOP0N 
REAL PROCEDURE CCUNIT? 20589700 
eo" REAL PROCEDURE CCSECMAINT; 20590850 
AL PROCEDURE CCLABEL 3 ee rates Sis a 
BOOLEAN PROCEDURE. CCFINOS. ‘ 20596750 
@ PROCEDURE CONTROLCARD(CARD) 3 VALUE CARA: REAL CARDS | 20997550 
PROCEDURE CCSET3; setae = 20700000 
REAL PROCEDURE NHATSUPCSTARNIKSFUNC®ARAEDS 21000000 
@* PROCEDURE SEEKACTION(STAsMIXeFUNCeIUD)3 215900000 
PROCEDURE UPDA’ TEABORTANCMHODIOLT IS VALUE WHODTOLTS REAL WHODIOITS —___24790000 __ 
$ RESET OMIT END OF BATACGM PROCBOURES ee 21752004 
@F PROCEDURE FINDFREEADDAESS(N)3 VALUE NJREAL NSF ORWARDS. : 22000500 a 
_ PROCEDURE NSECONOJS 0 eeesiseo 
; PROCEDURE STATUSs% 22055000 
@r BOULEAN PROCEDURE OLAYC(LOC)$ % MAUVE SAVE IN INITIALIZE 22226000 
PROCEDURE CHANGEABORT(X)3 VALUE xs REAL Xia ———_—_22200000___ a | 
OPROCEOURE STATIGNMESSAGEWRITERCPARAMETERD 3 23000000 eee lye 
@ - : ae PROCEDURE. HEADERS, ALL one mega BUFFER size NEEO NOT BE 23903000 | eos 
e A ’ ‘ q Mi ame. ZaAQVQsonade ‘ Dee eee 
& 


Data Documents/inc. 


On 


SAVE PROCEDURE FORGETSPACE(LOC)3% 24000000 


°| SAVE INTEGER PROCEDURE ACTSPACEC(SIZL*®SAVEF)3 24032050 
ane SAVE INTEGER PROC. TSPACE(S12¢e2TYPEsSaAVEP Js Oe 2OO 
er SAVE INTEGER PROCEDURE DISKSPACECWURDS»MIX» AUX)> 24101000 
@. SAVE PROCEDURE DISKRTNG(SEGNOs SIZE)3 24200000 
| eer are SAVE PROCEDURE DCGPTCTIRIZVALUF IR$ BOOLEAN IR; ODOR 
: PRUCEDURE FINOFREEADDRESS(N)S VALUE N$ REAL NG 24600000 
@ |: IF SE ESDER EGTA tse ENDAAEEC TST) GEQ 32 THEN’ THIS PROCEQURE IS 24610000 
é = 2 _CALLEQ FREQUENTLY SG MAKE IT as SAVE PROCEDURE 24611000 
7 PROCEDURE. PVC PEL LES TYE CLETUS PRTC eR T CLI ETT TEE STAsINOROUTS 25000000 
@': PROCEDURE INQUPTCPARAWETER) AVALUE PARAMETERS REAL PARAMETERS 25050000 
: ¥ Bs AI ee i etna a Oe Sc ee Bi a Dees paces ee eA ied 
9 PRUCEDURE RUNSEPTICCELFF)3 26000060 
or PRUCEDURE NINETEENREADERCSTACK)S VALUE STACK REAL STACK} 27001000 
ii —BOOLEAN PROCEDURE BOSQUFORMATTER(CTaleXeXXaHCLeHe OPTION)? sss 7 990yoo 
| PROCEDURE LIBRARYLOADSPECIALCASE(Z)5 VALUE 23 REAL Z3 ~ "27997600 
ei PROCEDURE DOGS INITIAL SETUP AND OTWER SPECIAL FUNCTIONS 27997645 
ba ROCEDURE LIBRARYLGADS pe ee A Eh ny og Fh te oe eS ee be Pe ee wise peer a 
Ne ENDS * OF LIBRARY LOAD PROCEDURE 28399000 
er PROCEDURE LIBRARYDUMP3 48400000 
by PROCEDURE LIBRARYZE ph BONOIN 
° SAVE PROCEDURE FILLORKILL CA» START» SIZEs TYPE)3 29000000 
@ SAVE INTEGER PROCEDURE AUXILIARYSPACECSIZE)3 29100000 
Pi. SAVE PROCEDURE FORGFETAUNTLIARYSPACECSIZE, toc), = ROONDD 
22 PROCEDURE AUXILIARYTABLEINITIALIZE3 29400000 
@ PROCEDURE AUXILIARY MEMORYCASUALTYRECOVERY3 . 29500000 
a —___PROCEOURE ERRORMESSER(TYPE)S VALUE TYPES REAL TYPES rr 0 
PROCEQURE ERRORFIXERCTYPE)S VALUE TYPES INTEGER TYPES - 34900000 
@ - PROCEDURE JOBMESS(MIXsQsAsBeC20)3 VALUE MIXsQe Ar BeCeDi% 32000000 
____COMMENT § THIS PROCEDURE CAN BE USED 7TO Budi tO ka senueacucwsler tastes 
me PROCEDURE MIXPRINT(Q)3 VALVE Q3 REAL Q3 32100000 
@ COMMENT THIS PROCEDURE INVUKES vUBMESS ‘TO TYPE THE y0B SPECIFIERS 32100010 
‘ PROCEDURE TO BE C “"THE ADDRESS MUST "WH ] TEE OUT 000 so een nt 
' “SECONDS” SECONDS THE PROCEDURE WILL RE CALLED PASSING WP ARAMETER" AS 35012000. 
@ PROCEOURE ‘EGGENTER CHAT OD Qs PARAMETER» SECONDS ) 3 ge 35200000 P, 
P _ PROCEDURE EGG GS ,! Aah aed : fp BSOTOGO FC 
PROCEDURE CHEATED ERIC RIVTT EG eT ST 35401000 
@ PRUCEDURE DOLITTLECUK»T#AsB9Z)5 VALUE Ts Ar Bs REAL Ok» To As Bo Z; 36001000 
REAL PROCEDURE FINDOUTPUTCMIDeFID*REEL*>COATE*cYcChEsTYPEeFORMS*KIND); 37000000 
REAL PROCEDURE FINDINPUTCMID*FIO*REELs COATES CYCLEs COBOL » UL» OF »MODES FNS 37177000 
or PROCEDURE STARTIMINGCFN®U)S VALUE FNeUS REAL FNOUSS 37271000 
___REAL PROCEDURE DISKADNRESS(MIDsFIDsFPAa»AsHs IOS = CSM 
PROCEDURE SETNOTINUSECU*RWL)s VALUE UsRWLS REAL UsRwhs 37302000 
@ PROCEDURE BLASTQ(U); 37320000 
_PROCEQURE BUIL' ‘ -»PF ACT o% 37337000 
PROCEDURE FILEMESS(L a KsMsheReDaC)3 Beas te : : 37357000 
@ | PROCEDURE FILEMESSAGECI sKaWeF oR oDeC, TYPES stag 37357300 
; REAL PROCEDURE FILEHEADER(WID» F DINKOWRISTEL BLENSRLENTSI0a 37418000 
® PRUCEDURE PURGEITCU)S VALUE Us INTEGER: USS . 37449000 
4 6 R a NN oy K * ) 
rine D1 SKF ILEOPE NC ALPHA) 3m VALUE yrerrys INTEGERwAGPHAS ci 38000000: 
OF. PROCEDURE OTHER 1LEQPENIWCAL PHD) | VALU@ ALPH AS. INTE@ER AL Pld. a 38102000 
PRG uk OTHE RF ‘OPEN GH A : m@2000NO _—s_—izi. 
P PROCEDURE DISKCLOSECALPHA)s VALUE ALPHRS INTEGER ALPHASS 38355000 
@F PROCEDURE BACKCLOSECALPHA)S VALUE ALPHA INTEGER ALPHA; 38540000 
ge PROCEDURE OTHERCLOSECALPHA)$ VALUE ALPHAS INTEGER ALPHAS 2 38648000 ae 
po) PROCEDURE FILEOPENCXTRASALPHA)S. 39000000 
@r. PROCEDURE SUSTATUSC AS DBO 4B): VALUE’. AsODDsB3 AEAG 4483 ARRAY ODODE #)3 99900000 ; : 
1 PROCEDURE DIRECTORYBUILDERCA,00D)3* 1 80000000 : cel 
@ 
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PROCEDURE REALFILECLOSECALPHA)s VALUE ALPHAs INTEGER ALPHA$& 41900000 
PROCEDURE LINKUPCTYPESKEY)4 VALUE TYFPE*KEYs REAL TYPE*KEY3 41310100 
\___ PROCEDURE CHECKJOBORFILEMFSS(MIxsFIB2u)s _aigiz000 
PROCEDURE LSGOUTMAINT(B)3 VALUE BF REAL B3 41316000 
? PROCEDURE MAINTLOGGER(B)3 VALUE 83 REAL B; ag a27000 
3 PROCEDURE. PSU sca ee i re ee ee ns oY ROE Spon leacn ice cee Se 
4 PROCEDURE FILLSYSTAT3 41401800 
5 PRUCEDURE SAVESTATISTICSCFILE)3 41405400 
| sss PRUCEDURE MESSAGETABLFBUILDER3 
’ (2436 ] s = KEYIN PROCEDURE 10 BE CALLED = #1450900 
8 Q = PROCEDURE KEYINO ( DIRECT CALL ) 41451000 
8 mt PROCEDURE KEYINL-¢ 151106 
to 2 = PROCEDURE KEYIN2. ( INQEPENQDENT AUNNER ) 41451200 
m (36812) = LABEL NUMBER € SWITCH LOCATION IN PROCEQURE) 41491900 
m2 anaes ee END OF FIRST KEYIN PROCEDURE CALLS 41459900 
k WLeuT Teen, Be*% END OF SECOND KEYIN PROCEDURES 81469900 
4 PROCEDURE ENTERSYSFILECN)3 VALUE NJ REAL NG 41600000 
ae PROCEDURE ARTNCAsN)S VALUE AJNA ARRAY AL*)5 INTEGER NJZ = = ATHOOD 
16 PROCEDURE ASR3 BEGIN INTEGER IeBCNTK* ARRAY AITE*]3 REAL TEMPSS 42482000 
” SAVE REAL PROCEOURE CCREND? FORWARD: | 42509000 
ml PRUCEDURE INTERRUPTCIYPE)$ VALUE TYPES REAL TYPES eb oopg Ss 
i PRUCEDURE CLEANUPABORT(A*DOD)3 VALUE AsODD3 ARRAY ODDC+)]s REAL AS 42600000 
z0 PROCEDURE INITIALIZEDCFILES CAs@DD*#LR)} VALUE A» DD0eLRE 42948000 
pr SAVE PROCEDURE” MOREIATY poe reer es ON i ne eee ee ell eee nares Le ae ele ee SAR CO ROG A tine tbe cree ee 
2 SAVE PROCEDURE MOREINITIALIZE3FORWARD; 44009000 
5 SAVE PROCEDURE INITIALIZES 44010000 
p_____ SAVE. PROCEDURE MOREINITIALIZE eB 
; SAVE REAL PROCEDURE CORENDS% 44441000 
6 PROCEDURE INTFINISHCAA)J VALUE AASREAL AAS 45000000 
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LABFL OQOQOO0OOPRINTEROOLOOOOOCC EX OBJECT/KEYWORDSFILE SCURCEFILESSYMBOL/MCPJENDE OBYECT /KE¥WORD 


2 

: hanes ame AEE NN A A, RN A NN NN AN Ren stne naka Rm a es mt i wna oo — oe 
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